home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / biz / demo / DC52_Demo.lha / Install_DosControl < prev    next >
Text File  |  1995-02-15  |  4KB  |  186 lines
  1. ;
  2. ; Installer-Script für DosControl
  3. ;
  4. ; $VER: DC_5.2 (14.02.95)
  5. ;
  6.  
  7. (transcript "Installation von DosControl V5.2")
  8.  
  9. (user 1) 
  10. (welcome)
  11.  
  12. (set answare1
  13.      (askchoice
  14.      (prompt "Wo möchten Sie DosControl v5.2 installieren?")
  15.      (choices "Festplatte" "Bootfähige Diskette DF0: ")
  16.      (help "Eine Installtion auf eine Festplatte ist nur möglich,"
  17.        "wenn Sie nicht mit der DosDontrol-Diskette gebootet"
  18.        "haben.")
  19.      (default 0)
  20.      )
  21. )
  22.  
  23. (if (= answare1 0)
  24.   (
  25.   (set dc_dir ("SYS:"))
  26.   (set dc_c_dir("S:DC_5.2"))
  27.   (set dc_text("S:DC_DIR_5.2"))
  28.   (set dc_libs("LIBS:"))
  29.   (set dc_devs("DEVS:"))
  30.   (set dc_cdir("C:"))
  31.   (set instpfad
  32.      (askdir
  33.      (prompt "Wohin soll DosControl_5.2\ninstalliert werden?")
  34.      (help @askdir-help)
  35.      (default dc_dir)
  36.      )
  37.   )
  38.   )
  39. ;
  40.   (
  41.   (user 0)
  42.   (set instpfad ("DF0:"))
  43.   (set dc_dir ("DF0:"))
  44.  
  45.   (if (exists "DF0:c"))
  46.     (makedir "DF0:c")
  47.  
  48.   (if (exists "DF0:devs"))
  49.     (makedir "DF0:devs")
  50.  
  51.   ª(if (exists "DF0:s"))
  52.     (makedir "DF0:s")
  53.  
  54.   (set dc_c_dir("DF0:s/DC_5.2"))
  55.  
  56.   (if (exists dc_c_dir))
  57.      (makedir dc_c_dir)
  58.  
  59.   (set dc_text("DF0:s/DC_DIR_5.2"))
  60.   (set dc_libs("DF0:libs"))
  61.   (set dc_cdir("DF0:c"))
  62.   (set dc_devs("DF0:devs"))
  63.   (if (exists dc_libs))
  64.      (makedir dc_libs)
  65.   )
  66. )
  67.  
  68. ;(procedure cfg_dir
  69. ;   (if (exists "S:DC_5.2" ))
  70. ;      (makedir "S:DC_5.2")
  71. ;)
  72.  
  73. (complete 0)
  74.  
  75. (copyfiles
  76.     (prompt "Kopiere DosControl_5.2")
  77.     (help @copyfiles-help)
  78.     (source "DosControl_Demo")
  79.     (dest   instpfad)
  80.     (infos)
  81.     (confirm)
  82. )
  83.  
  84. (complete 30)
  85.  
  86. ;(cfg_dir)
  87.  
  88. (set instpfad
  89.     (askdir
  90.       (prompt "Wohin sollen die von DosControl_5.2\nbenötigten Daten kopiert werden?")
  91.       (help "Keine Hilfe verfügbar.")
  92.       (default dc_c_dir)
  93.     )
  94. )
  95.  
  96. (textfile
  97.    (prompt "Pfad wird gesichert.")
  98.    (help "Keine Hilfe verfügbar.")
  99.    (dest dc_text)
  100.    (append instpfad"\n")
  101.    )
  102.  
  103. (complete 45)
  104.  
  105. (copyfiles
  106.    (prompt "Kopiere die von DosControl_5.2\nbenötigten Daten...")
  107.    (source "s/DC_5.2")
  108.    (dest   instpfad)
  109.    (pattern "#?")
  110. )
  111.  
  112. (complete 50)
  113.  
  114. (if (askbool
  115.     (default 1)
  116.     (help "Um alle Funktionen von DosControl nutzen zu können werden einige Libraries benötigt.")
  117.     (prompt "Sollen die Libraries für DosControl installiert werden?"))
  118.     (
  119.     (copylib
  120.     (prompt "Kopiere Powerpacker.library")
  121.     (source "Libs/powerpacker.library")
  122.     (dest dc_libs)
  123.     )
  124.     (complete 55)
  125.     (copylib
  126.     (prompt "Kopiere MedPlayer.library")
  127.     (source "Libs/MedPlayer.library")
  128.     (dest dc_libs)
  129.     )
  130.     (complete 60)
  131.     (copylib
  132.     (prompt "Kopiere Req.library")
  133.     (source "Libs/Req.library")
  134.     (dest dc_libs)
  135.     )
  136.  
  137.     (complete 65)
  138.     (copylib
  139.     (prompt "Kopiere Reqtools.library")
  140.     (source "Libs/Reqtools.library")
  141.     (dest dc_libs)
  142.     )
  143.  
  144.     (complete 70)
  145.     (copylib
  146.     (prompt "Kopiere Arp.library")
  147.     (source "Libs/arp.library")
  148.     (dest dc_libs)
  149.     )
  150.     (complete 75)
  151.     (copylib
  152.     (prompt "Kopiere KD_Freq.library")
  153.         (source "Libs/KD_Freq.library")
  154.         (dest dc_libs)
  155.     )
  156.    )
  157.  )
  158.  
  159. ;(if (askbool
  160. ;    (default 1) 
  161. ;    (help "Um sich DMS-Files ansehen zu können, benötigen Sie einige Dateien.")
  162. ;    (prompt "Soll die DMS-Unterstützung installiert werden?"))
  163.     (copyfiles
  164.        (prompt "Kopiere c/chdir")
  165.        (source "c/chdir")
  166.        (dest   dc_cdir)
  167.        (infos)
  168.        (confirm)
  169.     )
  170.     (copyfiles
  171.        (prompt "Kopiere devs/dms.device")
  172.        (source "devs/dms.device")
  173.        (dest   dc_devs)
  174.        (infos)
  175.        (confirm)
  176.     )
  177.     (copyfiles
  178.        (prompt "Kopiere devs/dms.mountlist")
  179.        (source "devs/dms.mountlist")
  180.        (dest   dc_devs)
  181.        (infos)
  182.        (confirm)
  183.     )
  184. ;)
  185. (complete 100)
  186.